The CICA Windows Explosion!/The CICA Windows Explosion! - Disc 2.iso/programr/vbasic/loanapp.exe/LOANF6.FRM

Text File | 1993-07-22 | 10KB | 320 lines

VERSION 2.00
Begin Form Form6
   BackColor       =   &H00808080&
   ClientHeight    =   2655
   ClientLeft      =   315
   ClientTop       =   1515
   ClientWidth     =   8880
   ControlBox      =   0   'False
   Height          =   3060
   Left            =   255
   LinkMode        =   1  'Source
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   8880
   Top             =   1170
   Width           =   9000
   Begin CommandButton Command3
      Caption         =   "Cancel"
      Height          =   300
      Left            =   4995
      TabIndex        =   17
      Top             =   2160
      Width           =   3000
   End
   Begin CommandButton Command1
      Caption         =   "Ok"
      Height          =   300
      Left            =   885
      TabIndex        =   16
      Top             =   2160
      Width           =   3000
   End
   Begin PictureBox Picture5
      Height          =   900
      Left            =   5100
      ScaleHeight     =   870
      ScaleWidth      =   3705
      TabIndex        =   4
      Top             =   1035
      Width           =   3735
      Begin VBedit BEditF6
         CellHeight      =   480
         CellWidth       =   360
         CharSet         =   16652
         CombBaseLine    =   390
         CombEndHeight   =   120
         CombEndMarker   =   0   'False
         CombHeight      =   60
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   5
         InflateBottom   =   180
         InflateLeft     =   180
         InflateRight    =   180
         InflateTop      =   240
         Left            =   1050
         TabIndex        =   11
         Top             =   330
         Version         =   268435458
         Width           =   2190
      End
      Begin Label Label6
         Caption         =   "Cost:"
         Height          =   225
         Left            =   330
         TabIndex        =   10
         Top             =   555
         Width           =   465
      End
      Begin Label Label9
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   885
         TabIndex        =   20
         Top             =   495
         Width           =   180
      End
      Begin Label Label5
         Caption         =   "Improvement(s):"
         Height          =   240
         Left            =   30
         TabIndex        =   9
         Top             =   45
         Width           =   1440
      End
   End
   Begin PictureBox Picture4
      Height          =   900
      Left            =   15
      ScaleHeight     =   870
      ScaleWidth      =   4950
      TabIndex        =   3
      Top             =   1035
      Width           =   4980
      Begin VBedit BEditF6
         CellHeight      =   480
         CellWidth       =   360
         CombBaseLine    =   390
         CombEndHeight   =   120
         CombEndMarker   =   0   'False
         CombHeight      =   60
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   4
         InflateBottom   =   180
         InflateLeft     =   180
         InflateRight    =   180
         InflateTop      =   240
         Left            =   45
         TabIndex        =   15
         Top             =   330
         Version         =   268435458
         Width           =   4860
      End
      Begin Label Label4
         Caption         =   "Purpose of Refinance:"
         Height          =   225
         Left            =   45
         TabIndex        =   8
         Top             =   45
         Width           =   1980
      End
   End
   Begin PictureBox Picture3
      Height          =   900
      Left            =   5460
      ScaleHeight     =   870
      ScaleWidth      =   3345
      TabIndex        =   2
      Top             =   60
      Width           =   3375
      Begin VBedit BEditF6
         CellHeight      =   480
         CellWidth       =   360
         CharSet         =   16652
         CombBaseLine    =   390
         CombEndHeight   =   120
         CombEndMarker   =   0   'False
         CombHeight      =   60
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   3
         InflateBottom   =   180
         InflateLeft     =   180
         InflateRight    =   180
         InflateTop      =   240
         Left            =   285
         TabIndex        =   14
         Top             =   330
         Version         =   268435458
         Width           =   2955
      End
      Begin Label Label8
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Left            =   120
         TabIndex        =   19
         Top             =   495
         Width           =   180
      End
      Begin Label Label3
         Caption         =   "Amount of Existing Leins:"
         Height          =   225
         Left            =   45
         TabIndex        =   7
         Top             =   45
         Width           =   2220
      End
   End
   Begin PictureBox Picture2
      Height          =   900
      Left            =   2010
      ScaleHeight     =   870
      ScaleWidth      =   3345
      TabIndex        =   1
      Top             =   60
      Width           =   3375
      Begin VBedit BEditF6
         CellHeight      =   480
         CellWidth       =   360
         CharSet         =   16652
         CombBaseLine    =   390
         CombEndHeight   =   120
         CombEndMarker   =   0   'False
         CombHeight      =   60
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   2
         InflateBottom   =   180
         InflateLeft     =   180
         InflateRight    =   180
         InflateTop      =   240
         Left            =   255
         TabIndex        =   13
         Top             =   330
         Version         =   268435458
         Width           =   2955
      End
      Begin Label Label7
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   120
         TabIndex        =   18
         Top             =   495
         Width           =   165
      End
      Begin Label Label2
         Caption         =   "Original Cost:"
         Height          =   225
         Left            =   45
         TabIndex        =   6
         Top             =   45
         Width           =   1215
      End
   End
   Begin PictureBox Picture1
      Height          =   900
      Left            =   30
      ScaleHeight     =   870
      ScaleWidth      =   1875
      TabIndex        =   0
      Top             =   60
      Width           =   1905
      Begin VBedit BEditF6
         CellHeight      =   480
         CellWidth       =   360
         CharSet         =   16652
         CombBaseLine    =   390
         CombEndHeight   =   120
         CombEndMarker   =   0   'False
         CombHeight      =   60
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   1
         InflateBottom   =   180
         InflateLeft     =   180
         InflateRight    =   180
         InflateTop      =   240
         Left            =   45
         TabIndex        =   12
         Top             =   330
         Version         =   268435458
         Width           =   1785
      End
      Begin Label Label1
         Caption         =   "Year Acquired:"
         Height          =   225
         Left            =   45
         TabIndex        =   5
         Top             =   45
         Width           =   1380
      End
   End
End

Sub Command1_Click ()
    MainRec.E.E1 = Form6.BEditF6(1).Text
    MainRec.E.E2 = Form6.BEditF6(2).Text
    MainRec.E.E3 = Form6.BEditF6(3).Text
    MainRec.E.E4 = Form6.BEditF6(4).Text
    MainRec.E.E5 = Form6.BEditF6(5).Text
    UpdateLabelE
    Form6.Hide
End Sub

Sub Command3_Click ()
    Form6.Hide
End Sub

Sub Form_Load ()
    Form6.Left = 300
    Form6.Top = (Screen.Height - Form6.Height) / 2
End Sub